function BlockDamageTest takes nothing returns nothing
    local timer BlockDamageTimer = GetExpiredTimer()
    local integer tid = GetHandleId(BlockDamageTimer)
    local unit u = LoadUnitHandle(udg_hash, tid, StringHash("Target"))
    local real Damage = LoadReal(udg_hash, tid, StringHash("Damage"))
    
    call SetUnitState(u, UNIT_STATE_LIFE, (GetUnitState(u, UNIT_STATE_LIFE) + Damage))
    call UnitRemoveAbility(u, 'A005')
    
    call DestroyTimer(BlockDamageTimer)
    call FlushChildHashtable(udg_hash, tid)
        
    set BlockDamageTimer = null
    set u = null
endfunction

function Damaged_Handler_Test takes unit source, unit target, real dmg returns nothing
    local timer BlockDamageTimer = CreateTimer()
    local integer tid = GetHandleId(BlockDamageTimer)
    
    if  IsUnitType(source, UNIT_TYPE_RANGED_ATTACKER) == true  then
        call UnitAddAbility(target, 'A005')
        call TimerStart(BlockDamageTimer, 0.01, false, function BlockDamageTest)
        call SaveUnitHandle(udg_hash, tid, StringHash("Target"), target)
        call SaveReal(udg_hash, tid, StringHash("Damage"), dmg)
    endif 
    
    set source = null
    set target = null
    set BlockDamageTimer = null
endfunction

function Damage_Event_Test takes nothing returns nothing
    call DisableTrigger( GetTriggeringTrigger( ) )
    call Damaged_Handler_Test( GetEventDamageSource( ), GetTriggerUnit( ), GetEventDamage( ) )
    call EnableTrigger( GetTriggeringTrigger( ) )
endfunction

//===========================================================================
function InitTrig_DamageTest takes nothing returns nothing
    local group gMain = CreateGroup()
    local unit uTemp 
    local trigger trTemp = CreateTrigger()
    
    if true then
        call GroupEnumUnitsInRect( gMain, bj_mapInitialPlayableArea, null )
        loop
            set uTemp = FirstOfGroup( gMain )
            exitwhen uTemp == null
            call TriggerRegisterUnitEvent( trTemp, uTemp, EVENT_UNIT_DAMAGED )
            call GroupRemoveUnit( gMain, uTemp )
        endloop
        call TriggerAddAction( trTemp, function Damage_Event_Test )
    endif
    
    set gMain = null
    set uTemp = null
    set trTemp = null
endfunction